home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
tagbr.zip
/
TAGBROW.CH
< prev
next >
Wrap
Text File
|
1993-04-22
|
870b
|
27 lines
/*
┌──────────────────────────────────────────────────────────────────────────┐
│ Application: TAGBROW.CH │
│ Author: Nicholas Solomon │
└──────────────────────────────────────────────────────────────────────────┘
*/
#command CREATE TAGBROWSE ARRAY [ <ar> ] ;
USEFIELD <fld> ;
TOP <t> ;
LEFT <l> ;
[ COLNAME <cl> ] ;
[ TITLE <tit> ] ;
[ <mes:MESSAGE>] ;
;
=> ;
[<ar>] := tagbrow( <fld>, <cl>, <t>, <l>, ;
<.mes.>, <tit>)
#command DEFAULT <p> TO <val> [, <pn> TO <valn> ] ;
=> <p> := iif( <p> == NIL, <val>, <p> );
[; <pn> := iif( <pn> == NIL, <valn>, <pn> )]
#define CHECKMARK '√'
*** eof TAGBROW.CH ***